home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / CHECK WRITER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  93 lines
  1. 10  PRINT "CHECK WRITER"
  2. 20  PRINT 
  3. 30  DATA  "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE"
  4. 40  DATA  "TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN"
  5. 50  DATA "SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY","THIRTY","FORTY"
  6. 60  DATA "FIFTY","SIXTY","SEVENTY","EIGHTY","NINETY"
  7. 70  DATA  "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY"
  8. 80  DATA  "AUGUST","SUPTEMBER","OCTOBER","NOVEMBER","DECEMBER"
  9. 90  PRINT "DATE (MMDDYY)";
  10. 100  INPUT D
  11. 110  PRINT "-(TO END PROGRAM ENTER 'END')--"
  12. 120  PRINT "FIRST NAME OF PAYEE";
  13. 130  INPUT F$
  14. 140  IF F$ = "END"  THEN 790
  15. 150  PRINT "LAST NAME OF PAYEE";
  16. 160  INPUT L$
  17. 170  PRINT "AMOUNT OF CHECK";
  18. 180  INPUT A
  19. 190  PRINT "READY TO PRINT CHECK";
  20. 200  INPUT X$
  21. 210 D1 =  INT(D/10000)
  22. 220 D2 =  INT((D -D1 *10000)/100)
  23. 230 D3 =  INT(D -(D1 *100 +D2) *100)
  24. 235 FF = 27 +D1
  25. 240  GOSUB 1000
  26. 250  READ X0$
  27. 260  PRINT ,,,X0$ +" ";D2;"  ";D3
  28. 270  PRINT ,,,"$";A
  29. 280  PRINT ,,," ";A
  30. 290  PRINT 
  31. 300  PRINT ,F$;" ";L$
  32. 310  PRINT 
  33. 320  IF A < = 0  THEN 770
  34. 330 A1 = A
  35. 340 N1 =  INT(A1/1E3)
  36. 350  IF N1 >99  THEN 770
  37. 360  IF N1 = 0  THEN 390
  38. 370  GOSUB 640
  39. 380  PRINT "THOUSAND ";
  40. 390 A1 = A1 -N1 *1E3
  41. 400 N1 =  INT(A1/100)
  42. 410  IF N1 = 0  THEN 440
  43. 420  GOSUB 640
  44. 430  PRINT "HUMDRED ";
  45. 440 A1 = A1 -N1 *100
  46. 450 N1 =  INT(A1)
  47. 460  IF N1 >0  THEN 490
  48. 470  IF A > = 1  THEN 500
  49. 480  GOTO 510
  50. 490  GOSUB 640
  51. 500  PRINT "DOLLARS ";
  52. 510 A1 = A1 -N1
  53. 520  IF A1 <.01  THEN 600
  54. 530  IF A <1  THEN 550
  55. 540  PRINT " AND ";
  56. 550 A1 = A1 *100
  57. 560  PRINT  INT(A1 +.5);" CENTS"
  58. 570  PRINT 
  59. 580  PRINT 
  60. 590  PRINT 
  61. 600  PRINT 
  62. 610  PRINT 
  63. 620  PRINT 
  64. 630  GOTO 120
  65. 640  IF N1 <21  THEN 730
  66. 645 FF = (N1 -20)/10 +20
  67. 650 FF = (N1 -20)/10 +20
  68. 655  GOSUB 1000
  69. 660  READ X0$
  70. 670  PRINT X0$;
  71. 680 A3 = N1 - INT(N1/10) *10
  72. 690  IF A3 = 0  THEN 760
  73. 700  PRINT "-";
  74. 705 FF = A3
  75. 710 FF = A3
  76. 715  GOSUB 1000
  77. 720  GOTO 740
  78. 725 FF = N1
  79. 730 FF = N1
  80. 735  GOSUB 1000
  81. 740  READ X0$
  82. 750  PRINT X0$;" ";
  83. 760  RETURN 
  84. 770  PRINT ,"*****VOID*****"
  85. 780  GOTO 570
  86. 790  END 
  87. 1000  RESTORE 
  88. 1005  IF FF = 1  THEN  RETURN 
  89. 1010  FOR I = 1 TO FF -1
  90. 1020  READ A$
  91. 1030  NEXT I
  92. 1040  RETURN 
  93. 1050  PRINT "<CTRL-D>RUNHELLO"